home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / russell / russell.lha / examples / fib.r < prev    next >
Text File  |  1989-12-29  |  404b  |  23 lines
  1. let
  2.         f1 == Short$New[];
  3.         f2 == Short$New[];
  4.         fib == Short$New[];
  5.         i == Short$New[];
  6.         n == 22;
  7. in
  8.         i := 1;
  9.         f1 := 1;     (* fib[i-1] *)
  10.         f2 := 0;    (* fib[i-2] *)
  11.     fib := 1;    (* fib[n]   *)
  12.         do
  13.         (* fib = fib[i] = f1 + f2 *)
  14.         i < n ==>
  15.         i := i + 1;
  16.         f2 := f1;
  17.         f1 := fib;
  18.         fib := f1 + f2
  19.     od;
  20.         put[fib]; put["\n"]
  21. ni
  22.             
  23.